home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / fsscl20d / FORM5.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-04-03  |  1.4 KB  |  48 lines
  1. VERSION 5.00
  2. Object = "{75C038D3-EA57-11D2-A3BC-000000000000}#1.0#0"; "fsScroll5D.ocx"
  3. Begin VB.Form frmResize 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Resize"
  6.    ClientHeight    =   2385
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   2985
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2385
  14.    ScaleWidth      =   2985
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin FishheadScroll.fsScroll fsScroll1 
  17.       Height          =   2025
  18.       Left            =   270
  19.       TabIndex        =   0
  20.       Top             =   210
  21.       Width           =   2565
  22.       _ExtentX        =   4524
  23.       _ExtentY        =   3572
  24.       MouseIcon       =   "Form5.frx":0000
  25.       Begin VB.CommandButton Command1 
  26.          Caption         =   "Click Me"
  27.          Height          =   495
  28.          Left            =   330
  29.          TabIndex        =   1
  30.          Top             =   540
  31.          Width           =   1995
  32.       End
  33.    End
  34. Attribute VB_Name = "frmResize"
  35. Attribute VB_GlobalNameSpace = False
  36. Attribute VB_Creatable = False
  37. Attribute VB_PredeclaredId = True
  38. Attribute VB_Exposed = False
  39. Private Sub Command1_Click()
  40.     Static w As Long
  41.     If w > 0 Then
  42.         w = -500
  43.     Else
  44.         w = 500
  45.     End If
  46.     Command1.Width = Command1.Width + w
  47. End Sub
  48.